From 447cff9175a6b78a09acae4887a86905f4886cb2 Mon Sep 17 00:00:00 2001 From: Lars Hansen Date: Sun, 8 Aug 2004 19:35:15 +0000 Subject: [PATCH] (widget-sexp-validate): Allow whitespace after expression. --- lisp/wid-edit.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 8029fb3d5a6..05ef4b95658 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -3153,6 +3153,8 @@ It will read a directory name from the minibuffer when invoked." (setq err "Empty sexp -- use `nil'?") (unless (widget-apply widget :match (read (current-buffer))) (setq err (widget-get widget :type-error)))) + ;; Allow whitespace after expression. + (skip-syntax-forward "\\s-") (if (and (not (eobp)) (not err)) (setq err (format "Junk at end of expression: %s" -- 2.30.2